﻿Imports omen02

Public Class InsertarProducto

    Private Sub idVenta_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub InsertarProducto_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load



    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
        Me.Visible = False
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        'Ingresar los datos a la base de datos
        Dim x = Me.idventaregistrarproducto.Text

        Dim y = Me.precioregistrarproducto.Text

        Dim z = Me.marcaregistrarproducto.Text

        Dim a = Me.modeloregistrarproducto.Text

        Dim b = Me.serieregistrarproducto.Text

        Dim c = Me.cantidadregistrarproducto.Text

        Dim d = Me.descripcionregistrarproducto.Text

        Dim g = Me.tiporegistrarproducto.Text

        Dim f = Me.longitudregistrarproducto.Text


        Dim n = New ProductoNegocio()

        Dim paquete = n.insertar(x, y, z, a, b, c, d, g, f)

        MsgBox("Producto registrado!!!!")

        'Limpiar cajitas de texto desues de ingresar datos
        idventaregistrarproducto.Clear()
        precioregistrarproducto.Clear()
        marcaregistrarproducto.Clear()
        modeloregistrarproducto.Clear()
        serieregistrarproducto.Clear()
        cantidadregistrarproducto.Clear()
        descripcionregistrarproducto.Clear()
        tiporegistrarproducto.Clear()
        longitudregistrarproducto.Clear()

    End Sub

    Private Sub LogoPictureBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LogoPictureBox.Click

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim negocio As New ProductoNegocio

        Dim productos As Collection = negocio.listar()

        Me.dgvpaquete.DataSource = productos
        Me.dgvpaquete.EditMode = False

        Me.dgvpaquete.Columns(0).HeaderText = "idProducto"
        Me.dgvpaquete.Columns(1).HeaderText = "idVenta"
        Me.dgvpaquete.Columns(2).HeaderText = "precio"
        Me.dgvpaquete.Columns(3).HeaderText = "marca"
        Me.dgvpaquete.Columns(4).HeaderText = "modelo"
        Me.dgvpaquete.Columns(5).HeaderText = "serie"
        Me.dgvpaquete.Columns(6).HeaderText = "cantidad"
        Me.dgvpaquete.Columns(7).HeaderText = "descripcion"
        Me.dgvpaquete.Columns(8).HeaderText = "tipo"
        Me.dgvpaquete.Columns(9).HeaderText = "longitud"

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim seleccionado = Me.dgvpaquete.CurrentRow.Cells(0).Value.ToString
        Dim seleccionado1 = Me.dgvpaquete.CurrentRow.Cells(1).Value.ToString
        Dim seleccionado2 = Me.dgvpaquete.CurrentRow.Cells(2).Value.ToString
        Dim seleccionado3 = Me.dgvpaquete.CurrentRow.Cells(3).Value.ToString
        Dim seleccionado4 = Me.dgvpaquete.CurrentRow.Cells(4).Value.ToString
        Dim seleccionado5 = Me.dgvpaquete.CurrentRow.Cells(5).Value.ToString
        Dim seleccionado6 = Me.dgvpaquete.CurrentRow.Cells(6).Value.ToString
        Dim seleccionado7 = Me.dgvpaquete.CurrentRow.Cells(7).Value.ToString
        Dim seleccionado8 = Me.dgvpaquete.CurrentRow.Cells(8).Value.ToString
        Dim seleccionado9 = Me.dgvpaquete.CurrentRow.Cells(9).Value.ToString

        Dim form As New ActualizarProducto

        form.MdiParent = Me.MdiParent
        form.lblId1.Text = seleccionado
        form.idventaregistrarproducto.Text = seleccionado1
        form.precioregistrarproducto.Text = seleccionado2
        form.marcaregistrarproducto.Text = seleccionado3
        form.modeloregistrarproducto.Text = seleccionado4
        form.serieregistrarproducto.Text = seleccionado5
        form.cantidadregistrarproducto.Text = seleccionado6
        form.descripcionregistrarproducto.Text = seleccionado7
        form.tiporegistrarproducto.Text = seleccionado8
        form.longitudregistrarproducto.Text = seleccionado9


        form.Show()
    End Sub
End Class